﻿Imports System.ComponentModel




''' <summary>
''' 异步获取网页源码完成事件
''' </summary>
''' <remarks></remarks>
Public Class GetHtmlCodeCompletedEventArgs
    Inherits AsyncCompletedEventArgs

    Private m_SiteUrl As String = String.Empty
    Public ReadOnly Property SiteUrl() As String
        Get
            Return m_SiteUrl
        End Get
    End Property


    Private m_HtmlCode As String = String.Empty
    ''' <summary>
    ''' 网页源码
    ''' </summary>
    Public ReadOnly Property HtmlCode() As String
        Get
            Return m_HtmlCode
        End Get
    End Property

    Public Sub New(ByVal [error] As Exception, ByVal cancelled As Boolean, ByVal userState As Object)
        MyBase.New([error], cancelled, userState)
    End Sub

    Public Sub New(ByVal [error] As Exception, ByVal cancelled As Boolean, ByVal siteUrl As String, ByVal htmlCode As String, ByVal userState As Object)
        MyBase.New([error], cancelled, userState)
        Me.m_SiteUrl = siteUrl
        Me.m_HtmlCode = htmlCode
    End Sub
End Class

